5 DV=PEEK(186):IFDV<8THENDV=8
7 DIMW$(300)
10 POKE53281,0:POKE53280,0:PRINT"[147]"
12 SYS57812"INPUT ANY CE00",8,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
14 GOSUB60000
16 SYS52736,"CRYPTDATA 96",DV
18 H=PEEK(252)*256+PEEK(251)
19 GOTO90
20 OPEN4,4,7:CLOSE4
22 FL=0:POKE214,20:PRINT"[159]"
24 IFST=-128THENPRINTC$Q$:FL=1:GOTO28
26 PRINTC$U$:POKE198,0
28 GETA$:IFA$=""THEN28
29 RETURN
30 POKE214,23:PRINT
32 PRINT"   [193]NY KEY [155]- MORE    [210][197][212][213][210][206] [155]- MENU[159][145]":POKE198,0
34 GETA$:IFA$=""THEN34
36 FG=0:IFA$=CH$THENFG=1
38 RETURN
50 FORI=130TO150
52 IFW$(I)="*"THENX=I+1:I=150
54 NEXT
56 RETURN
90 V=53248
91 FORI=832TO876:POKEI,255:NEXT
92 FORI=0TO4:POKE2040+I,13:POKEV+39+I,6:NEXT
93 POKEV+16,0:POKEV+29,31:POKEV+27,31
94 FORI=0TO3:POKEV+2*I,70+I*48:POKEV+1+2*I,70:NEXT:POKEV+8,240:POKEV+9,70
100 PRINT"[147]"
101 CH$=CHR$(13):BK$="[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]"
102 FORI=0TO4:READB$(I):NEXT
103 DATA"[159] [195] [210] [217] [208] [212] [201] [195]   [195] [207] [210] [206] [197] [210] "
104 DATA"  1. [208]RINT [195]RYPTIC           "
105 DATA"  2. [208]RINT/[214]IEW [211]OLUTION     "
106 DATA"  3. [208]RINT/[214]IEW [201]NSTRUCTIONS "
107 DATA"  4. [200]EAD [194]ACK TO [204][207][193][196][211][212][193][210]   "
108 P$="        [208]RESS A NUMBER       "
109 R$="    ([208])RINTER OR ([211])CREEN    "
110 E$="                             "
111 Q$=" [208]RINTER'S OFF!  [208]RESS A KEY "
112 U$=" [211]ET TOP OF FORM - PRESS KEY ":V$="  [208]RESS A KEY TO PRINT CLUES "
113 TP$="[191][191][191][191][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146][191][191][191][191]"
114 MD$="[191][191][191][191][221][159]                             [221][146][191][191][191][191]"
115 BT$="[191][191][191][191][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146][191][191][191][191]"
116 C$=""
117 PP$="                                            "
118 F$="     ":G$="!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--!"
119 GOSUB50
120 FORI=1TO4:D$(I)=C$+E$+CH$+C$+B$(I)+CH$+C$+E$:NEXT
121 PRINT""BK$:PRINTTP$
122 FORI=0TO14:PRINTMD$:NEXT
124 PRINTBT$:PRINTBK$
126 PRINTTP$:FORI=0TO2:PRINTMD$:NEXT:PRINTBT$:PRINTBK$"[145][145][145][145][159]":PRINTC$P$
130 POKE214,2:PRINT:PRINTC$B$(0):PRINT""
132 POKEV+21,31
134 FORI=1TO5:PRINTC$B$(I):PRINT"":NEXT
158 POKE198,0
160 GETA$:IFA$<"1"ORA$>"4"THEN160
162 K=VAL(A$)
164 POKE214,K*3+1:PRINT:PRINT""D$(K)
166 ONKGOTO200,500,500,900
200 GOSUB20:IFFLTHEN120
210 OPEN4,4,7
215 FORI=0TO4:PRINT#4:NEXT
220 PRINT#4,"                 [212][200][197][210][197]'[211] [199][207][212][212][193] [194][197] [193] [195][193][212][195][200]!
230 [152]4
240 [152]4,F$G$
241 [152]4,F$"! 1!  ! 2!  ! 3!  ! 4!  ! 5!  ! 6!  ! 7!  ! 8!"
242 [152]4,F$"!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
243 [152]4,F$G$
244 [152]4,F$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
245 [152]4,F$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
246 [152]4,F$G$
247 [152]4,F$"! 9!  !  !  !  !  !  !##!10!  !  !  !  !  !  !"
248 [152]4,F$"!  !  !  !  !  !  !  !##!  !  !  !  !  !  !  !"
249 [152]4,F$G$
250 [152]4,F$"!  !##!  !##!  !##!11!  !  !##!  !##!  !##!  !"
251 [152]4,F$"!  !##!  !##!  !##!  !  !  !##!  !##!  !##!  !"
252 [152]4,F$G$
253 [152]4,F$"!12!  !  !  !  !##!  !##!13!  !  !  !  !  !  !"
254 [152]4,F$"!  !  !  !  !  !##!  !##!  !  !  !  !  !  !  !"
255 [152]4,F$G$
256 [152]4,F$"!  !##!  !#(null)!14!15!  !16!  !##!  !##!  !##!  !"
257 [152]4,F$"!  !##!  !##!  !  !  !  !  !##!  !##!  !##!  !"
258 [152]4,F$G$
259 [152]4,F$"!  !##!  !##!##!  !##!  !##!17!##!##!##!##!##!"
260 [152]4,F$"!  !##!  !##!##!  !##!  !##!  !##!##!##!##!##!"
261 [152]4,F$G$
262 [152]4,F$"!18!  !  !  !  !  !  !  !  !  !  !  !19!  !20!"
263 [152]4,F$"!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
264 [152]4,F$G$
265 [152]4,F$"!##!##!##!##!##!  !##!  !##!  !##!##!  !##!  !"
266 [152]4,F$"!##!##!##!##!##!  !##!  !##!  !##!##!  !##!  !"
267 [152]4,F$G$
268 [152]4,F$"!21!##!22!##!23!##!24!  !25!  !26!##!  !##!  !"
269 [152]4,F$"!  !##!  !##!  !##!  !  !  !  !  !##!  !##!  !"
270 [152]4,F$G$
271 [152]4,F$"!27!  !  !  !  !  !  !##!  !##!28!  !  !  !  !"
272 [152]4,F$"!  !  !  !  !  !  !  !##!  !##!  !  !  !  !  !"
273 [152]4,F$G$
274 [152]4,F$"!  !##!  !##!  !##!29!  !  !##!  !##!  !##!  !"
275 [152]4,F$"!  !##!  !##!  !##!  !  !  !##!  !##!  !##!  !"
276 [152]4,F$G$
277 [152]4,F$"!30!  !  !  !  !  !  !##!31!  !  !  !  !  !  !"
278 [152]4,F$"!  !  !  !  !  !  !  !##!  !  !  !  !  !  !  !"
279 [152]4,F$G$
280 [152]4,F$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
281 [152]4,F$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
282 [152]4,F$G$
283 [152]4,F$"!32!  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
284 [152]4,F$"!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
285 [152]4,F$G$
310 [129]I[178]0[164]16:[152]4:[130]
312 [151]214,20:[153]:[153]C$V$:[151]198,0
313 [161]A$:[139]A$[178]""[167]313
315 Z[178](H[171]X)[173]2[171]1
320 [129]I[178]X[164]X[170]Z
322 [152]4,W$(I);
324 [152]4,[200](PP$,40[171][195](W$(I)))W$(I[170]33)
326 [130]
332 [152]4:[160]4
334 [137]120
500 [139]K[178]3[167]D1[178]1:D2[178]99:D3[178]49:D4[178]49
501 [139]K[178]2[167]D1[178]100:D2[178]X[171]1:D4[178](D2[171]99)[173]2:D3[178]99[170]D4
502 [151]214,20:[153]"OPEN":[153]C$R$:[151]198,0
503 [161]K$:[139]K$[178]""[167]503
504 [139]K$[178]"P"[167]550
506 [139]K$[178]"S"[167]510
508 [137]120
510 [151]V[170]21,0:[153]"LOADOPEN":[129]I[178]D1[164]D2
512 [139]W$(I)[179][177]"\"[167]520
514 [141]30:[139]FG[167]I[178]D2:[130]:[153]"LOAD":[137]120
516 [153]"LOAD":I[178]I[170]1
520 [139]W$(I)[179][177]"*"[167][153]" "W$(I)
524 [130]
526 [141]30:[139]FG[167]I[178]D2:[153]"LOAD":[137]120
528 [137]510
550 [141]20:[139]FL[167]120
552 [159]4,4,7:[129]I[178]0[164]2:[152]4:[130]
554 [129]I[178]D1[164]D3:L[178][195](W$(I))
555 [139]W$(I)[178]"\"[167][152]4," ";:[137]557
556 [152]4," "W$(I);
557 [139]W$(I[170]D4)[178]"\"[167][152]4," ":[137]560
558 [152]4,[200](PP$,40[171]L)W$(I[170]D4)
560 [130]
562 [129]I[178]0[164]63[171]D4[170](K[178]3):[152]4:[130]:[160]4
564 [137]120
900 [129]I[178]0[164]1000:[130]:[151]V[170]21,0
905 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
910 [139]ER[179][177]63[167][153]"LOAD":[128]
920 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
930 [153]"RUN"
940 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:CRYPTIC 96":[160]15:[148]"CRYPTIC 96",8:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"LEN (null) (null) (null) (null) RIGHT$ LEN   LEN (null) (null) (null) VAL (null)  #96":Z$(1)[178]"BY ASCENDER (null)UCKER
60040 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]